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RRRRRRRR MM MM SSSSSSSS 000000 BBBBBBBB LL KK KK III 000000 

RRRRRRRR MM MM SSSSSSSS 000000 BBBBBBBB LL KK KK III 000000 

RR RR MMMM MMMM SS 00 00 6B BB LL KK KK II 00 

RR RR MMMM MMMM SS 00 00 8B BB LL KK KK II 00 00 

RR RR MM MM MM SS 00 0000 6B BB LL KK KK I] 00 00 

RR RR MM MM MM SS 00 0000 6B BB LL KK K I] 00 00 

RRRRRRRR MM MM SSSSSS 00 00 00 688888888 LL KKKKKK I] 00 00 

RRRRRRRR MM MM SSSSSS 00 00 00 88888866 LL KKKKKK I] 00 00 

RR RR MM MM $$ 0000 00 6B BB LL KK KK Il 00 00 

PR RR MM MM $$ 0000 00 6B BB LL KK KK Il 00 00 

RR RR MM MM SS 00 00 6B BB LL KK KK II 00 00 evee 
RR RR MM MM SS 00 00 6B BB LL Kk KK I] 00 00 cece 
RR RR MM MM SSSSSSSS 000000 BBBBBBBB LLLLLLLLLL KK KK IIIT! 000000 cece 
RR RR MM MM SSSSSSSS 000000 BBBBBBBB LLLLLLLLLL KK KK IIIT! 000000 cove 
LL III] SSSSSSSS 
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MARBABRABAABASLAAALALAALALALASELAS ALE RAS EAA EERE SAAR RAR R ARRAS ERR ARES REESE A RL ASS SS 


COPYRIGHT («) 1978, 1980, 1982, 1984 BY 
DIGIT TAL EQUIP MENT _ GORPORATION, MAYNARD, MASSACHUSETTS. 


SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND gd 

IN eo te CE WITH THE yen OF SUCH b I CENSE AND WITH THE 
USION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER 
ES THEREOF ol NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
R PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 


*® ® 
'® ® 
:® * 
** * 
** * 
** 2 
** oe 
‘* *® 
'® ® 
** *® 
* TRANSFERRED. * 
** ® 
‘* ® 
** ® 
** ® 
** ® 
*® ® 
:* * 
** * 
** * 
** ® 


ooo > 
=4=o2Z2z22 rT 
xzVvVoOore 
mer <w 


THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
eoRPORAT ioe NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


DIGITAL ASSUMES NO RESPONS 
SOFTWARE ON EQUIPMENT WHIC 


ITY FOR THE USE OR _ RELIABILITY OF ITS 


BIL 
IS NOT SUPPLIED BY DIGITAL. 


I 
H 


(AR RRRRRRARSRASRARRAARRRAR RR ARASARERRRSRRRR ARRAS RRR RRRRRARA RAR RRR SRA D SD SD OD | 
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BLOCK I/0 ROUTINES 


OOCoco 


fT a ee ee ee ee ew ee ee) ee ee ww ww ww wo la lol elolelolelolelelolelelelelelololololoro! 


0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
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8 p++ 
3; Facility: rms32 


0 ; 

: Abstract: 

¢ : Environment: 
6: 

4 ; Author: 

; Modified By: 
: v03-018 J 
: v03-017 
6: 

7; v03-016 
8; 

, 3 

0; 

: v03-015 
t 

2 3 

6; v03-014 
rs 

8; 

9; 

0; 

: v03-013 
+ 

5: v03-012 
$: 

8 ; v03-011 
9; 

0; 

: v03-010 
; v03-009 
6 ; 

?; 

8 2 v03-008 
0; 

; v03-007 
4: v03-006 


this module performs the $read and $write functions. 


star processor running starlet exec. 
L F Laverdure, creation date: 23-MAY-1977 


WT0167 m Tea 15-Mar-1984 
Back out buffer Mest or block i/o. 
JWT0165 Jim 10-Mar-1984 
ANSI Magtape butler orice for block i/o. 
DAS0006 David Solomon 6-Feb-1984 


ix B1 journaling of $SWRITE to reset correct value for 
journal BDB BDBSW_NUMB field. Improve comments and formatting. 


et David Solomon 15=De c-1983 

Don't blindly overwrite IRBSL_JNLBDB if it's “already filled in. 
Reuse existing JNLBDB if it's big enough. Also, don’t deallocate 
JNLBDB after each block 1/0 write. 


KPLO009 Peter Lieberwirth 20-0c t-1983 
Page-align request for ALDJNLBUF. Fix block-10 
journaling so that AT Byrnes vee Stretures are not 
deallocated on a block-10 operation 


yexoees ar Krichevsk X 5-0ct-1983 
Use RMSALDJNLBUF "oes of RMSALDBUF for allocating 
journal buffer and bdb. 


DAS0004 David Solomon 13-Jul-1983 

Fix Al block 1/0 Journal ine. 

KPL0008 Peter Lieberwirth 26-May-1983 

New format of RJR. 

RASO151 Ron Schaefer 29-Apr-1983 
Fix broken branches to RMSRDBUFWT and RMSUTBUFWT. 

RASO132 Schaefer 16-Mar-1983 

Merge SRMSRDEF into SRIRDES and revise the interface 
for RMSWRIJNL for easier use from ISAM. 

DASO003 Rayid Solomon 18-Feb-1983 

Fix date in v03-00 

JWHO186 Jeffrey W. Horn 14-Feb-1983 

Fix truncation error. 


JWHO157 Jeffrey W. Horn 17-Dec-1982 
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Clear IRB$V_BIO CAST. on Lutter errors so that 
A lt, disconnect will correctly A Rs buffer. 


“SEP-19 RMS .SRCIRMSOBLKIO.MAR; 1 | 
Add journaling support for block/io. | 
v03-005 KBT0420 Keith B. Thompso 30-Nov-1982 | 
Change ifb$w _deveutete to i#D l “devbufsiz 
V03-004 KBT0174 Keith B. Thompson 23-Aug-1982 | 
Reorganize psects 
V03-003 RASO093 Ron Schae‘er 27-Jul-1982 
Correct ig > wh tep tne for mixed block/record and/or connect 
to EOF. Zero the NRP offset within block after any block I/0 
operation. 
V03-002 RASO091 Ron Schaefer 14-Jun-1982 
Fix incorrect datatype usage. 
v03-001 CdS0002 C Saether 2-Apr-1982 


V02-029 RASO065 Ron Schaefer 8-Feb-1982 
Position to end of file on block mode append. 


v02-028 cdS0001 C Saether 30-Aug-1981 
Remove calls to seche ond release. 


V02-027 RASO021 Ron Schaefer 7-Aug-1981 
Fix block i/o support for stream files. This is an 
ME: fix to even-align write transfers by asking 
if the user buffer can be extended 1 byte. 
If not, the transfer fails. 


V02-026 PSK00018 P S$ Knibbe 24-Jul-1981 
Fix yet more prenen branches, by keeping the network code in 
the ocal PSECT 


COoooCSCOCSCSCSOSOSOSCOSOSOSOOSOSOOOOSOOSOOOOOOOOOOOSoOO 
SoOoOSSCSCOSCOSOSOSOSOSCOSOSOSOOSOSOSOSOOSOOOOOOOOSOOOOSoOO 
pe ee ee ww ele ola w lo lole lolol oleae lolelelelolelololelelololololo) 


FP PAAAI NANA AIDED PPUEDRININININININ 2 9 OP PM HF POCO OCOOCOCOOCOOOOOOOOOOOWMOMoc 
=—=OODNA UE WIN @ OOO NAME WIN SO OO NAW EWN 0 ODNAU SW 0 OONOAU EWN OOOnou 


Be Se Se Ge Ge Be Ge Se Ge Ge Ge Gs Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Bs Ge Ge Ge Ge Ge Ge Ge Se Ge Ge Ge Se Se Ge Ge Ge Se Ge Se Se Se Ge Se Se Se Ge Se Se Se Se Sets 


SOOOCOOCSCSOOSOOSOOOSOSOOOSOOSOOCOOSCSOOSOOSOSOSOOOSCOOOOCOSOOOOOCO OOOO OOOOOOOOOOO 


et et at a = 9 — 9 = — — 9 — 4 —) SS — Ss = 2s Ss = SS SS os — ss ts SS 


V02-025 KPLO007 Peter Lieberwirth 7-May-1981 
iti Fix more broken branches. 
000 V02-024 PSK0017 P S Knibbe 19-Jan-1981 
sit Fix broken branches 
B38 V02-023 REFORMAT C Saether 30-Jul-1980 23:20 
$6 v022 PSK0016 P S Knibbe 11-Mar-1980 3:15 
000 successful read from magtape should clear irb$v_eof bit 
B60 only successful write shou d set irb$v_eof bit 
000 v021 PSk0012 P S Knibbe 14-Feb-1980 2:30 
it write to magtape should set irb$v_eof bit 
000 v020 JAK0020 Re A Krycka 05-Sep-1979 12:00 
209 release 2.0 wor | 
0 v019 ANO003 R A Newell 20-Dec-1978 03:10 | 
3 Rite sharing enhancements. 


sem 
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BLOCK 1/0 ROUTINES 
DECLARATIONS 


; bit offset to record options 


ee eS Se Oe 


mm eu Oc ocvunrc 
FAAHAAAAAAA 


-SBTTL DECLARATIONS 
Equated Symbols: 
ROP=RABSL_ROP*8 


Include Files: 
Own Storage: 


Macros: 


NOR. DOHO— CIM TN OR. DAO — CUM TMNOR. DHOOM TNOK 
STF TTMMNMANMNNAAUNN OOOO OOOOOORA LPP. 


alee eee ee cere meme cee ec cee ec re ee Sm ce ac me ce ce eee eee cee ceed eee creel oe ee oe 


GOooQoooooooooooooooooooooooooooocoo 
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DOOOOOOOOOOOSOSOSOOOSOSOSOOSOOSOSOOSOSOSOSSoOSoO 
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Dw 
zr 
PRO 
zo 
mx 
Pa 

mc 
ra 


~SBTTL ‘RMSREAD = SREAD ROUTINE 


+ 

RMSSREAD = highest level block i/o read routine 
his routine performs the $read specific code. 
t checks the user's parameters, calls t 

common block i/o setup, reads the buffer 

awaiting completion, sets the next block 

pointer and exits via the common block i/o 

co-routine. 

Calling sequence: 


entered from exec as a result of user's calling 
SYSSREAD (e.g., by using the SREAD macro). 


Input Parameters: 
ap user's argument List addr. 
Implicit Inputs: 


the contents of the various rab 


fields 
(see functional spec for detailed lis 


t). 
Output Parameters: 


r0 status code 
ri destroyed 


Implicit Outputs: 

various fields of the rab are filled in 

to reflect the status of the $read operation. 

(see rms functional spec for List.) 

the irab is similarly updated. 

a completion ast is queued if specified in the user arg List. 
Completion Codes: 

standard rms. 
Side Effects: 

if file was opened with ‘bro’ option specifying | 

mixed block and record i/o operations, the 

current and next record context is destroyed. | 
; Note on BRO_SW and BIO_LAST: 
The BRO_SW is set in RMORSET when the current operation is a block i/o 
operation and BIO_LAST is not set. This is the signal to the vikio 

| 


co-routine to release ene current buffer first before using the BDB 
for the block i/o operatio 


SOOSOOCCOCOCOSOOSOOSSOSSOSCSOSOOCCOSOLV OOOO OCOOCOOCOO OOOO OO OOO OOOO OOOOOoOO 
OOoOOCCOOCSOSCOCOCOOCSOOOOSOSOSOSOSOSOO OOOO OCOSOSOOSOOOOOOOOSOSOOCOOOoOSoSOSO CF 

COOOCCOSCOOOCOCOSCOOSOSOOOOSOOSOOOOOCOOOOOOSOOOOOOOOOOOOOOOOOSO 

fe fe fel ew lolol a ele ewe elo elololelolelololololeleolololeololeoleoleloleleolol ol elole ole oo) 

AWWA AAI SPOPIPOPINYAPINININDD 3 2 9 FOO OOO ODOOCOOOOOOOO OOO DOC CdOD CD CDCDCDCDOD 
MEW O ODNAUES WN 9 ODNAUE WIN 9 OO NAME WIN SO ODNAU EW OOONOUSWN—O”O OF 


Be Se Se Ge Ge Se Ge Ge Ge Ge Se Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge te Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge 


POROPOROPOPOROPORONORONONOPONONOPONONONONONONONONONNOPONONONONONUNONNY 2 2 


Soooooo 


ooooo 


n, as the buffer may be dirty and need to 


RMSOBLKIO B 
VOL-000 R 


AUS WN—OO0ONG OF 


oS Se 
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be written first. In pete ton, 59 9 Preceanes t will look at the BIO_LAST 
for the same reason. s set, ‘t assumes that any necessary 
release has already Melee” 10.tAst 


BIO_LAST is set by RMORSET before entering these routines. 

For that reason, eny errors that occur before the release section of 

the BLKIO co-routine should clear BIO_LAST before exit, as the effect 
of releasing the buffer from a record” aperetion has not yet occured. 


< 
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bait ts RMSREAD - $R ROUTINE eto 9 OF230: 48 YRMS SRCIANS BLKIO.MAR;1 ° &) 
SENTRY RMSSREAD 
STSTPT READ 
SRABSET FAC=IFBSV_GET,B10=1,CFLG=1 
p : initialize rbf and rsz and call blkio to do the i/o 
0 e 
56 20 AB * 0 MOVZWL RABSW_USZ(R8),R6 3: get buffer size 
6 1 0 BEQL ERRUSZ ; branch if zero 
57 24 A 4 8 MOVL RABSL yor tn R7 3; get buffer addr 
28 AB D MOVL  R7,RABSL_RBF (RB) : set buffer addr 
22 As «=6B4 SCO CLRW RABSW_RS7Z(RB) : init read size 
00 CSB #IRBSO_WRITE, (R9) ; flag as read 
00A3 30 00 BSBW BLK : do common block i/o setup 
03 6A  3€ 4 BBC #1FBSV_DAP,(R10) ,5$ ; branch if not network operation 
O21A 1 BRW NTREAD : branch to NTREAD if network operation 
ee t 16 5$: JSB RMSROBUF WT 3; issue the read and await completion 
5E 50 =€9 BLBC RO, CHKEOF 3; branch on error 


on magtapes - clear the end of file bit on read 


04 6A O05 €1 BBC #DEVS$V_SQD,1FBSL_PRIM_DEV(R10),10$ ; branch if not magtape 
CSB #IRBSV_EOF , (R9) ; clear the eof bit 


10$: 


; check for logical eof if sequential file org 


50.09.0909 0909 09 09 09 09 09 SI NII NS AAA AAA AA AMUMIMUIMIUMININUIN Et 
OOONAUE WN OS OOONAUE WN @ O OD NOUE WN OVOONAOUS WT" ON0Ee OF 


PDP & Be Be EE WII NWA WIIDNIND 2 2 SH QDOOOCOOCOCOCOCSOO 
ERIS WCCO HOOP WW MD OUIMIWOOM DS PP PPP YP PON NNN TOFU "DWOLOM>Y SP PKS Pr POSOOCO 
AAAI IPIPININININIPYINPIPIDIPYNININIPININYIPININPINIPIPIPINIPYINIMMININPYNIPUNIPUINIPINININIPINIPINIPIPININININININY eMC 


B88 9S SS SS SSS SSSSSSSSSSSSssssssssssssssss 


SOOOOCSCOCOSOSOOSOSSSOSOSOSOOOOOOO COSCO OOOOOOOOOCoOSoOoOO 


CHKLEOF : 
32 6A 6 1C €1 BSC #DEVSV_RND, IFBSL_PRIM_DEV(R10),SETRSZ ; branch if not disk 
61 10 BSBB ETNB 3 set next block pointer 
ASSUME FABSC_SEQ EQ 0 
23 AA 95 TSTB IFB$B_ORGCASE (R10) ; sequential org? 
2B S12 BNEQ SETRSZ ; branch if not 
74 AA 51 ~O1 CMPL R1, 1FBSL_EBK(R10) ; last block xferred > eof? 
¢8 1F BLSSU SETRSZ : branch if not 
74 AA 5 01 CMPL R5, IFBSL_EBK(R10) 3 Ist block past eof? 
oF 91 BLssu 20 : branch if definitely not 
1A 3 BGTRU 0$ 3; branch if yes 
5C AA B5 9 TSTW ireoe FFOCaIO ; Ist block is eof block 
05 12 94 BNEQ 0$ : branch if any bytes in use 
+ : (i.e., not yet eof) 
39 3 past logical eof 
44 3 reset numb to reflect the number of bytes transferred before logical eof. 
Of 
198: RMSERR EOF 
; ¢ § 20$: SUBL5 R5,1FBSL_EBK(R10) ,R1 : get # full vbn's before eof 
| BLSS RETURN : ust return (rsz = 0) 
9 4 ROTL #9,R1,R1 3; get # of bytes 


& z 
RMSOBLKIO BLOCK I/0 ROUTINES =SEP-1984 01:10: AX/VMS Macro V04-00 Pa 
basis Boke A = SREAD ROUTINE oe -SEP-1 1382 OF: 30: 4s RMS .SRCJRMSOBLKIO.MAR; 1 - (2) 
14 AG 51 SC AA A 5 ADDW3 IFBSW_FFB<R10),R1,BDBSW_NUMB(R4) ; + Last block offset = total # byt 
1 $ BSBB SE TNBP 3 reset next block pointer 
0 
1 


22 AB 14 AG 80 : aoee BDBSW_NUMB(R4) ,RABSW -RSZ(R8) ; set length of re 


TRSZ ead 
TURN: 3; return to block i/o co-routine 


EX 
EX 
FA 
FA 
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RMSOBLKIO BLOCK 1/0 ROUTINES 16-SEP-1984 01:10:1 AX/VMS Macro V04-00 Page 1 
vou~000 RMSREAD = $READ ROUTINE ete 9F 30:48 YAMS SRCIRNS BLKIO.MAR;1 ° 19, 
76 13 
7 14 344 
7 15 3 
7 18 3; handle errors 
7 V3 
7 18 i2- 
07 1 
076 Q ERRUSZ: 
Bre 1 RMSERR USZ 
05 11 78 § BRB EXIT1 
07D 
g70 4 ERRUBF : 
4 5 RMSERR UBF 
0082 5 EXIT1: CSB #IRBSV_BIO_LAST, (R9) ; No buffers were released, so 
086 8 :; don't consider this operation as Last 
FF77° 31 0086 9 BRW RMSEXRMS 
0089 9 
0089 1 ++ 
0089 § 3 
0089 33; handle $write errors 
0089 34 ; 
0089 35 ;-- 
0089 36 
0089 37 ERRRBF: 
0089 $38 RMSERR RBF 3; bad buffer address 
F2 «(11 ait 94 39 BRB EXIT1 
009 40 
0090 41 3++ 
0090 rt ; 
0090 343; handle eof error 
0090 44; 
0090 45 :-- 
0090 46 
827A 8F 50 B61 0090 4 CHKEOF: CMPW RO, #RMS$_EOFS“XF FFF 3; was error eof? 
DE 12 0095 48 BNEQ R 3 branch if not 
14 AG BS 0097 349 TSTW BOBSW_NUMB(R4) 3 any input? : 
D4 13 OO9A 350 BEQL SETRSZ : branch if none (it's eof) 
009C 86 351 RMSSUC 3 return success instead 
99 11 OO9F 352 RB CHKLEOF ; go check for logical eof 


RMSOBLKIO BLOCK 1/0 ROUTINES 16-SEP-1984 01:10: AX/VMS Macro V04-00 
vOu-000 RMSREAD = $READ ROUTINE “-SEP=1 Hn EYEE: LRMS. SRCIRMSOBLKIO. MAR: 1 
Al 4 
a) 5 ++ 
pA 25 ; subroutine to set next block pointer 
Al 35 ; inputs: 
Al 60 ; r irab addr 
Al 61 ; r5 starting vbn for xfer 
OOA1 96 3 r4 bdb addr 
3 w_num ytes xfere 
vy o bdb$ b #b fered 
ny 9 3; outputs: 
Al oe; irb$l_nrp_vbn vbn of block following Last transferred 
00A1 67 ; ri Last vbn xferre 
BRA 63 3 r2 # bytes xferred in last blk 
BOAT A ; \assumes vbn significant for disk devices only\ 
00A1 372 ° 
51 14 A4 3C QOAI 58 SETNBP: MOVZWL BDBSW_NUMB(R4) ,R1 ; get xfer len 
52 51 FEOO 8F AB OQOAS 74 BICWS #*XxXFEO0,R1,R2 5 get g oxi in last blk 
05 12 OOAB 75 BNEQ : branch if non-zero 
52 0200 8F B80 QOAD 3/8 MOVW #512,R2 3; must have been 512! 
51 D7 00B2 77 10$: DECL R1 3; round down # bytes 
51 51 F7 8F 78 Q0B4 378 ASHL #-9,R1,R1 3; get # vbn's xferred - 1 
51 55 CO 00B9 $05 ADDL R5, 3; set last vbn xferred 
40 A901 51 C1 OOBC 80 ADDL R1,41,1RBSL_NRP_VBN(R9) ; set nbp 
44 49 B4 00C1 381 CLRW IRB$W_NRP_OFF (R9) : zero offset within vbn 
05 00C4 382 RSB 


N 3 
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; -SBTTL BLKIO = COMMON SREAD - $WRITE ROUTINE 
BLKIO = common block i/o read/write routine 
this routine performs common $read - $write function 
setup and cleanup. it functions as a co-routine 
so that the $read or $write routine need 
merely do an rsb to execute the common 
block i/o cleanup. 
Calling sequence: 
BSBW BLKIO 


Input Parameters: 


ri jneure area address 
a 

r9 irab addr 

r8 rab addr 

r7 user buffer addr 

r6 user buffer Length 


Implicit Inputs: 
irb$l_curbdb 
irb$l-nrp_vbn 
rab$l_bkt 
irbta® _bkpbits 
Output Parameters: 
r5 von for ist block of xfer 
ddr 


r4 current bdb a 
rO-r3 = destroyed 


eo Pe Se Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Se Ge Sse Ge Se Se Ge Se Ge Ge Se Ge Ge Ss Ge Sete Be 
+ 

°. 

= 

oO 


Implicit Outputs: 

current bdb gseibly © released 

new current bdb | 

bdb setup for xfer 

rab$w_rfa set to srrne vbn 
Completion Codes: 

none. exits rms if any errors. 
Side Effects: 

bdb buffer information saved in {rab 


hence co-routine must be calle 
order to clean up on exit. 
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RMSOBLKIO BLOCK 1/0 ROUTINES 16-SEP-1984 01:30:48 VAX/ vis Macro V04-00 Page 13 RMS 
v04-000 BLKIO = COMMON $READ = S$WRITE ROUTINE =SEP=1984 16:24: RMS .SRCIRMSOBLKIO.MAR; 1 (10) v04 
oc ree 3 probe the user's buffer for appropriate access 
Bt 108 
36 8 C 444 TSTW Re 3 zero Length? 
é 1 Be 445 BEQL 40$ ; branch if yes (avoiding probe) 
54 tS . C9 iz9 MOVQ R6,R4 ; copy size and address 
50 FEOO BF 3 OCC 44 CVTWL 4 #=512,R0 ; addressing constant 
08 69 62 3 ity 448 10$: BBS opReyy WRITE,(R9),20$ ; branch if write 
65 54 9 D 0005 449 PROBEW #0,R4,TRS) ; probe writeability 
0 le 0009 450 NEQ 30$ : branch if o.k. 
AO 1 0dDB 451 BRB ERRUBF 3 go handle error 
Sop 128 gps: IFNORD R4,(R5),ERRRBF ; branch if not readable 
ae ge E 4 O$: SUBL2 R0O,R5 ; get address of next page 
54 6440 3 OE6 454 MOVAW  (R4)CROI,R4 : calculate new Length 
2 14 QOEA 455 GTR 10$ ; branch if more to probe 
54 0 C2 QOEC 456 SUBL2 RO,R4 ; need to handle Last page? 
EO 14 OOEF 457 GTR 108 : branch if yes 
OOF1 458 40$: 
OOF1 459 
OOF1 460; 
OOF1 461 ; get block number for i/o 
OOF 1 bt F 
OOF1 46 
55 38 A8 DO OOF1 464 MOVL RABSL_BKT(R8) ,R5 3 get block # 
OF 12 OOFS 465 BNEQ RELBDB ; branch if non-zero 
OOF? 466 
OOF7 467; 
OOF7 468 ; sequential operation indicated - set nbp from saved value 
OOF? 469; 
OOF7 470 
55 40 A9 DO OOF? 471 MOVL §IRBS$L_NRP_VBN(R9) RS 
44 A9 B65 OOFB tf TSTW IRBSL_NRP_OFF (R9) 
06 13 OOFE 47 BEQL RELBDB 
02 69 21 + #&+2€€1 Q100 474 BBC #IRBSV_EOF,(R9) ,RELBDB 
D6 0104 475 INCL R5 
0106 476 
0106 477; 
0106 478 ; release the current bdb if any, unless 
0106 479 ; it is for this vbn and we're writing 
0106 480 ; 
4 6 $3) 
106 4 ¢ RELBDB: 
54 20 A9 0 106 48 MOVL IRB$L_CURBDB(R9) ,R4 3; get current bdb 
$f 1 bg tt: BEQL GET : branch if none 
0A 69 28 €0 010C 485 BBS #IRB$V_BRO_SW,(R9),RELEASE ; always release if 
B18 486 ; record i/o operation Last 
06 69 29 €1 110 rtf BBC #IRBSV_WRITE (R9) , RELEASE ; always release on read 
55 1C AS D1 0114 «488 CMPL BDBS$L_QBN(R45 ,R5 ; Same block? 
39 13 #0118 489 BEQL SETBOB 3 yes (omit release) 
mae 
11A 136 3; must release bdb - use rm$wtlst1 for sequential org if irb$v_bro_sw set, 
11A 493; else rm$release 
111A 494; 
11A 495 
11A £36 RELEASE: 
111A 49 ASSUME FABSC_SEQ EQ 0 
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BLKIO = COMMON SREAD = $WRITE ROUTINE SEP=1984 16: RMS.SRCIRMSOBLKIO.MAR; 1 (10) v04 
23 AA TSTB 1tB$p. ORGCASE (R10) ; seq org? 
BNEQ 


branch ifn 
BBC #IRBSV_BRO_SW,(R9),GBDBO' ; ibranch if” Block i/o ved 


3 Com daa unneeded re 
F JSB RMSWTILST1 ; release last block (oien eddies! 
0 BLBC RO,RELERR 3; branch on error 
A9 GBDBO: MOVL IRB$SL_NXTBDB(R9) ,RG ; get bdb addr to use 
MOVL R5,BDB$L_VBN(R4) ; and set vbn into it 


~ 

orm 
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: need merely get a bdb (no release required). branch based on file org. 


ASSUME FAB$C_SEQ EQ 0 
AA 95 GETBDB: TSTB IFB$B_ORGCASE (R10) ; seq. file org? 
rs.) BEQL GBDBO branch if yes 
03.—=si11 BRB GBDB23 branch for rel. and idx. 


$ release last block for relative and indexed file orgs 
; and get a bdb for the new operation 


NNW MAAS SNS LOSS SSS SSO DOS ASOAAOAASASLOOOUWSOPF -™O 


finish block i/o co-routine 
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REL23: 
AD =—4 CLRL IRB$L_CURBDB(R9) 3 note no bdb 
AA DE GBDB23: MOVAL IFBS$L_BDB_FLNK(R10), ; get bdb for operation 
ASSUME BDBSL_FLINK EQ 0 
64 00 10$: MOVL (R4), RS 3 get next one. 
TSTW BOBSW_USERS(R4) 3 in use? 
FB 12 BNEQ 10$ ; NEQ then someone has it. 
AS B6 INCW BDBSW_USERS(R4) 3; bump count (to 1) 
55 00 “aun MOVL RS, BOBSL_VBN(R4) ; note VBN to transfer. 
54 0 " MOVL = R4, IRBSL_CURBDB(R9) ; note new current bdb 
7 : save size and address of buffer associated 
3; with bdb in rp field of irab 
7 e 
A4 v0 7 MOVL BDBSL_ADDR(R4) , IRBSL_RP_VBN(R9) 
AG BO ¢ MOVW §BDBSWISIZE(R4), IRBSW_RP_OFF(R9) 
1 3 
} 3 store user-supplied buffer info 
1 ° 
56 §6B0 1 MOVW R6, BOBSW_SIZE(R4) 
56 4 5 MOVW R6, BOBSW-NUMB(R4) 
ef D 9 MOVL R?7, SOBEL ABE CRS? 
5 00 D MOVL RS. RABSW_RFACRB) 
9E 16 : JSB a(sp)+ 3 co-routine call for caller 


called when read or write does ‘rsb'‘ 


; set rfa from vbn | 
| 
| 
| 
| 
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v04-000 BLKIO = COMMON SREAD = SWRITE ROUTINE -SEP=1984 16:24: RMS .SRCIRMSOBLKIO.MAR; 1 (10) 
17 53 
17 § 3 restore real buffer info 
17 ; (rO has status code) 
153 325 
18 AG «648 ADO 15 60 MOVL  IRBSL_RP_VBN(R9) ,BDBSL_ADDR(R4) 
16 AS 4C AD 0 017 61 MOVW IRBSW_RP_OFF(R9) ,BDBSW SIZE(R4) 
OA A403 A 017D 66 RELERR: BICB2 #BDBSA_VAL!BDBSM_DRT,BDB$B_FLGS(R4) ; clear valid and dirty 
1C 44 «64 «(0181 6 CLRL DBS$L_VBN(R4) ; Clear vbn field 
OC A4 BS 184 64 CLRW BDBSW_USERS(R4) 3; not is use now. 
20 AD =D4 0187 263 CLRL IRB$L_CURBDB(R9) 3; say no bdb 
FE73° 3° OisA 566 EXIT: BRW RMSEXRMS 
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RMSSWRITE = highest level biock i/o write routine 
this routine performs the $write specific code. 
it checks the user's parameters, calls the 

common block i/o setup, writes the buffer 
awaiting completion, sets the next block 

pointer and exits via the common block i/o 
co-routine. 

; Calling sequence: 


; entered from exec as a result of user's calling 
; sys$write (e.g., by using the Swrite macro). 


Input Parameters: 
ap user's argument List addr. 
Implicit Inputs: 


the contents of the various rab fields 
(see functional spec for detailed list). 


Output Parameters: 


r0 status code 
ri destroyed 


Implicit Outputs: 


OOO 000000 OOO 000000090009 090909098 NINN NINN NINO OO 


various fields of the rab are filled in 
to reflect the status of the $write operation. 
(see rms functional spec for List.) 


the irab is similarly updated. 
a completion ast is queued if specified in the user arg List. 
Completion Codes: 
standard rms. 
Side Effects: 
if file was opened with ‘bro’ option specifying 
mixed block and record i/o operations, the 
current and next record context is destroyed. 
Notes: 
since phe UNIBUS disks only allow even sized transfers, we 
must Lie to the driver about how many bytes are to be transfered 
if the user gives an odd-sized buffer 


Currently the only case that is handled is SWRITE operations where 
the next byte after the user-buffer is accessible, so that we can 
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1/0 TI 
RMSSWRITE WR ROUTINE -SEP-1984 RMS .SRCIRMSOBLKIO.MAR; 1 (11) v04 
18D § > 3 just write one more byte(!) The EOF mark is however properly 
180 § 3 maintained. This case occurs 4 re SCOPY command for stresn files. 
! 4 ? ; SOMEDAY, we should fix all cases! 
p é : Also see note in the READ routine header regarding BRO_SW and BIO_LAST. 
} ae 
18D 6 : SENTRY RMSSWRITE 
1 634 STSTPT 
1 3 635 SRABSET FAC=IFBSV_PUT,B10=1,CFLG=1 
137839 
197 638; get record size and address and probe the buffer 
Be Bee 
56 22 A8 3C 0197 641 MOVZWL RABSW_RSZ(R8),R6 ; get size 
gb 
0198 644; se with the inadequacies of certain block-structured devices that 
B108 2 : permit even sized transfers (e.g. RK06/7, RLO1/2, RX01/2,...) 
6A 1C €1 0198 647° BBC #DEVSV_RND, IFBSL_PRIM_DEV(R10) ,~ 
05 O19E 648 3 block structured device? 
02 56 £9 O19F 649 BLBC R6,5$ 3 even size buffer 
56) =—6 BIg o20 INCL R6 3; round buffer up ar odd 
57 28 A8 DO O1A4 636 5$ MOVL RABSL_RBF (R8) ,R7 ; qf addr 
O1A8 = 65 SSB #IRBSO_WRITE, (R9) : flag as write 
FF16 30 OAC 654 BSBW BLKIO : ce common block i/o setup 
22 6A 3E €0 O1AF 655 BBS #IFBSV_DAP,(R10),B ; WRITE ; branch if network operation 
66 6A 1¢ E1 biB3 $28 ti pe yev er BND. {FSU PRIM, DEV(RTO). wit: branch if not disk 
23 AA 95 0187 658 STB ipese ~BRGCASE (R10) ; is this the seq. file org? 
10 12 O1BA 659 BNEQ RTBLR : branch if not (no auto eliend? 
gist ba 
O01BC 662: check for file extend needed 
Sige Be 
56 pf 1BC 665 DECL R6 3; round down # of bytes 
52 56 _F7 BF 8 Hal 966 ASHL #-9,R6,R2 ; get # blks to xfer - 1 
52. 55 co OIC 66 ADDL R5,R2 3 get ending vbn for xfer 
52° 70 AA (C2 01C6 668 SUBL2 IF BSL_HBK(R10),R2 : compute # blocks to extend 
63 1A 1s O67 BGTRU EXTEND : and branch if > 0 
OOAO CA 3 1s ef WRTBLK: ile fPOSy MIL SCRTO) ; any Jqyrnet ing? 
008s 31 1p er8 BRW WRTJNL : ot BY if so 
6061 31 18 of? BR_AID: BRW NTWRITE ; out-of-Line branch aid 
eoeees 4 16 BS o75 DOWRT: JSB RMSWIBUFWT : write the block 
30 50 ~«€9 1D 143 BLBC RO,10$ ; branch on error | 
1E 67 | 
1€1 oRY 
1E1 681 


: if requested block is past current eof, reset eof 


RMSOBLKIO BLOCK 1/0 ROUTINES 16-SEP-1984 0: AX/VMS Macro V04-00 
Nisha t RMSSWRITE = grNes ROUTINE g- “-SEP-1 1382 9; 32 ‘48 RMS.SRCIRMSOBLKIO.MAR; 1 
161 682; 
¢¢ AS BO O1E1 MOVW RABSW_RSZ(R8) ,- 3 reset transfer size 
4 AG 1E4 BDBS$W-NUMB(R4S ; to number of real bytes 
he | 3 168 BSBW SETNB 3; set next block pointer 
¢? 68 1.22 1E 6 BBS Troee. Lg By 1g ~(R8),20$ ; branch if new eof wanted 
1 74 AA 1 1ED 6 CMPL if8 L_EBK(R1 RI 3; past eof? 
1E A OTF 6 BGTRU 0$ 3; branch if not 
98 1F OF 6 BLSSU 5$ ; branch if definite yes 
5C AA B1 OTF 6 CMPW Re IF BSW_FFB(R10) ; past current eof byte? 
16 18 O1F9 «69 BLEQU 108 : branch if not 
1FB 69 
1FB } ? 
1FB 3 store the new eof 
1FB «6695 ; 
1FB 69 
1FB 697 5$ SSB cir ey RW_ATTR,¢ 3 flag ettrjbuse rewrite needed 
48 AA 52. B1 OFF 69 CMPW , 1FBSL “SE VBUES: eR10) ; ast block full? 
04 =OF 03 +4 BLSSU fe’ 3; branch if not 
52.4 05 0 CLRW R2 : yes - clear offset in block 
51 06 07 70 INCL R1 ; and bump eof vbn 
74 AA $1 dO 09 4 7$: MOVL Ri) IE BSL Fen (R19) 
5C AA 52 4 0D 7 MOVW R2,1FBSW_FFB(R10) 
0 11 704 10$: RSB 
3 } 
: 4 3: verify tpt option allowed by fac 
1 70 
1 
1 
1¢ 
1D 
1D 
1D 
1D 
' 
6 
A 
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E4 22 AA 04 €0 71 BBS pr ceey., TRN, IFBSB_FAC(R10),5$ ; branch if allowed 
71 RMSERR ; “give error 
05 4 RSA 3 and return to co-routine 
714 ; 
4 : write for non disk devices 
‘iT 
eoon00gs "tr 16 718 Wl: JSB RMSWTBUFWT 
08 50 =«E9 71 BLBC RO,1 go, mey ife 
04 6A O05 €E1 7 BBC #DEVSV_ SQD, IFBSL_PRIM_ Dev 10),10$ ; it paetene 

7 $SB #IRBSV- EOF, (RO) ~ 3; set the eof bit 

E 722 10$: 

05 pa. RSB 

f 

: t extend file (i.e., for disk only) 

F 728° 

00000000"tF 1 F 729 EXTEND: JSB RMSAUTOEXTEND : 
94 50 3 5 4 pias RO,WRTBLK ; if successful, rewrite 

3 4 

9 7 p++ 

9 734; 

3 if : perform network write function 

9 A - 

9 7 


= 
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beet BRSSURITE - SURI Te ROUTINE -SEP- 198 95558588 RMS .SRCIRMSOBLKIO.MAR; 1 
9 739 NTWRITE: 
fo 4" 30 9 740 BSBW NTSWRITE 3 write the block 
03 50 9 C fe) BLBC RO,10$ 3; branch on error 
FE p F 4¢ BSBW = SETNB ; update next block pointer 
4 7435 10$: RSB 3 return to co-routine 
4 744 
fe ie 
4 r5 ; perform network read function 
4 £8 3 
4 539 NTREAD 
rope" 30 4 8 BSBW erseeee 3 read the block . 
06 9 9 8 75 BLBC RO,10$ ; branch on erro 
FES 0 0249 754 BSBW 3s SE TNBP : update next block pointer 
Fee 1 4c 755 BRW SETRSZ ; rejoin mainline 
FESE 1 8 f £38 10$ BRW CHKEOF 3; branch aid 
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+ Journal the SWRITE. 


ERRJNS: RMSERR JNS 
RSB 
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give error 


0 TI 
E WR 
: : 
05 i 
> 
68 } E0 : reg WRTJNL: BBS SRAGSY.TPTOROP (RB). :; branch if truncate put 
3¢ = BB C £68 PUSHR #*M<R2,R3,R4,R5> : save registers 
01 Bo 8 PUSHL #1 3 preset success 
33 14 AG f 0 MOVZWL BDBSW_NUMB(R4) ,R5 3; get size of user request 
55 4 000044 8F C 71 ADDL #RIRSC_BLKLEN,RS 3; compute size of journal buffer needed 
88 OOOO BE EA ’3 558 BpetS Ratt Rs g See SENS OF 2 Oe eS 
54 30 A9 09 79 «77% MOVL PRBSL_JNLBDB(R9) .RA ; get JNLBDB address 
—-) 9 op a BEQL $ ; none allocated; go allocate one 
7F 777 ; 
027F 778 ; See if existing JNLBDB is big enough for this request. If so, re-use it. 
8 ge a4 :; If not, deallocate it and allocate a bigger one. 
7F 781 : 
55 14 AG Bil 9 oe . ¢ CMPW BOBSW_NUMB(R4) ,R5 ; compare buffer size to size needed 
2— «613 8 th 4 BEQLU)  15$ ; all set up go use it 
55 2C Ad Bi 8 784 CMPW BDOBSW_ALLOC_SIZE(R4),R5 ; compare a location size to size needed 
96 1F 0289 785 BLSSU_ 5$ 3; too small; deallocate it 
14 AG 5 BO 0288 786 MOVW R5 ,BDBSW_NUMB(R4) 3; size ok; set new buffer size 
e2 11 0 8F 787 BRB 15$ : and go use it 
DD 91 788 5$: PUSHL R5 3; save 
QOOO00000'EF 16 0293 789 JSB RMSRETJNLBDB ; deallocate existing JNLBDB 
5 BEDO 0299 790 POPL RS : restore R5 
OOOO0000'EF 16 029 791 7$: JSB RMSALDJNLBUF 3; get BDB and buffer 
06 50 =«EB 8 hs 79 BLBS RO,10$ 3 continue on succcess 
6E 0098 9 8 -B ay a RR, (SP) : replace status code 
14 AG 5 88 8 AB 795 108: MOVW R5,BDB$W_NUMB(R4) ; set buffer size 
30 Ad 4 0D “ £36 MOVL R4, IRB$L_JNLBDB(R9) ; save journal BDB address 
B 798 ; 
B 3; Set up journaling record 
0583 B01 
55 18 A400 0 4 8 15$: MOVL BDBSL_ADDR(R4) ,R5 ; get buffer address 
87 Be ; 
44 0g : Fill in RJR overhead 
87 807 ° 
03 «(90 67 43 MOVB #RJRSC_BLOCK,- ; journal entry type 
03 A5 B9 80 RJRSB_ENTRY_TYPE(RS) 
| 90 BB 10 MOVB #RIRS_WRITE,- 3 operation 
5 A BD 811 RJRSB-OPER(RS) 
AA 90 BF \¢ MOVB IFB$B_ORGCASE(R10) ,- ; file organization 
4 AS Ce 1? RJRSB_ORG(RS) 
53 OC AE 00 C4 15 MOVL 12(SP),R3 ; get data BDB address 
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iC A dO C8 16 MOVL BOBSL_VBN(R3),- : fill in VBN 
<¢ A CB OBI RJRSL~BLOCK YEN(RS) 
4A 3¢ CD 18 MOVZWL BDBS$W-NUMB(RS) ,- 3; fill in block size 
40 A p 19 RJRSL-BLOCK_SIZE(R5) 
D 1 3 
§ ; To BI journal this we need to read old block(s) into journal BDB. 
D 4° 
02. €1 D 5 BBC #IFBSV_BI,- ; branch if no BI 
3D OOAO CA D $ IFB$B_JNLFLG(R10) ,20$ 
14 A3._ BO D8 MOVW BOBSW_NUMB(R3),- 3; copy number of bytes of user transfer 
14 AG dB 8 BDBSW_NUMB(R4) 
1¢ A3.—s«#O DD MOVL BOBSL_VBN(R3),- 3 copy vbn 
1C AG E 0 BOBSL_VBN(R4) 
00000044 8F C0 E 1 ADDL #RIJRST_BLOCK,- ; read old data into RJR$T_BLOCK 
18 AG E 3¢ DBSL_ADDR(R4) 
QOOOOO00'EF 16 EA 5 $B RMSROBUF WT z read the old block(s) 
00000044 8F C2 FO $e SUBL2 #RJRST_BLOCK,- 3 get back real top of buff 
18 A 0 F6 835 BDBSL_ADDR(R4) 
0044 8F Ad 8 F 3 ADDW2 #RJRST _BLOCK,- : restore correct jB80B buffer size 
14 AG FC 3 BDBSW_RUMB(R4) : (user buffer size + RJR overhead) 
3F 50 €9 O2FE 8 LBC RO, 308 3 get out on error 
54 DD 8 01 839 PUSHL 4 ; jB0B addr 
02 OD $08 840 PUSHL JFS$_BI ; set BI 
4 14 AE 00 8 05 841 OVL 12+8(SP) ,R4 i get data BDB address from saved R4 
00000000'"EF 16 0309 aes JSB RMSWRTJNL 3; write journal entry 
5E 08 CO O3SOF 84 ADDL2 #8,SP ; discard arglist 
28 50—s«E9 0313 see LBC RO, 308 3 get out on error 
03 =««€1 $3! 548 20$: BBC #IFBSV_AI,- ; branch if no Al 
25 OOAO CA 317847 IFB$B_JNLFLG(R10) , 30 
4 30A9 DO Q31B 848 MOVL IRBSL_JNLBDB(RY) .R4 ; get journal BDB address 
51 18A4 00 aif rh MOVL BDBSL ADDR (RA) RI 3 get journal buffer address 
53 OC “ 4 3 29 MOVL 12(SPY,R 3 get data BDB address from saved R4 
\ a 2 3 : He MOVC3 ates ete 3 copy user buffer to journal buffer 
44 Al 03 C 335 RJR$T_BLOCK(R1) 
30 Ad «6D SCO f 854 PUSHL IRBSL_JNLBDB(R9) ; j8DB addr 
03 OD Q3 $2? PUSHL 152i I 3; set 
54 14 AE 00 Q3 ; 28 MOVL 12+8(SP) ,R4 3 get data BDB address from saved R4 
OO0O000000'EF 16 ; 5 JSB RMSWRTJNL 3; write journal entry 
5E 8 co D 28 ADDL2 #8,SP ; discard arglist 
6E 0 00 4 5 70s: MOVL RO, (SP) 3; update return status 
D =BA 4 60 40$: POPR “#*A<RO,R2,R3,R4,R5> 3; set return status and restore regs 
03 50 9 4 61 BLBC RO,50$ 3; get out on error 
FE8D 1 rt 6 BRW DOWRT 3 rejoin SWRITE code 
05 48 64 50$: RSB 
te Bee 
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RMSOBLK10 BLOCK 1/0 ROUTINES 878 b=1 984 94:30:38 ERMS. SRCIRMSOBLKIO.MAR: 1 
rs IRBSV_BIO_LAST = 09000027 
Shang = BRRTR Henan = RSs) 
SSRMS_PBUGCHK . 8 IRBSV-URITE . ¢ 
SSRMS_TBUGCHK = 4 IRBSW_NRP_O = 0000004C 
SSRMS S_UMODE = A IRBSW RP_OFF RERREEEE x 1 
BSB_FLGS = 1 NTSREAD REARRRREE xX 1 
BDBSL ADDR ° 09 i NTSWRITE O900343 n° OI 
BDBSL~FLINK = Rononne NIREAD Hoop ogee R 01 
oan vin = Sou0808¢ ITUELTE ace cag #2 
DBSM~VAL , RABSL~BKT . 3 
Sena ay hie ie 
BDSSN-SIZE, = 00000 og RABSL _UBE = 00000001 
cttio gopgtse @ f} | RABSNcarL = HB3ees8 
BR AID : RABSW-RSZ . 
ai Sap ete Saige w 
= 000 
CJFS_AL = 00000002 RELB QOO00IIA R sO 
CJFS-BI . RELEASE R 01 
DEVS _RND = 90000008 RELERR 90000075 RON 
Down 0000023¢ ROO} RIRSB-ENTRY_TYPE = 20000003 
ERRINS 089 R 01 RIRSB_OPER = 00000004 
ine an = Hite 
ERRUSZ 0000018A R —s_ OO RIRSC BLOC = 00000040 
i 00000082 R ~—s«O1 RIRSL-BLOCK_ SIZE = Ronee ae 
111 00000 Hi R 01 RJRSL_BLOCK-VBN = 00000024 
EXTEND = 90000000 RUR$T-BLOC = 0000001E 
$C_SEQ RJRS_ORITE 01 
FABSV-TRN a 44546 01 RMSACDJNLBUF ceceeese of Ot 
dB0 00000140 R 01 RRSAUTOEXTEND teeeenee X01 
GBDB25 000001 36 01 RMSEXRMS eeenneee X01 
GETBDB = 00000022 RMSROBUF WT aeeneeee =X 01 
IFBSBCONLFLG = 00000049 RASRSET romrene tat Hie 
1 FBSB-ORGCASE = 9000004 MSURTIN coscccss OO 
rest poe LM = 90000048 RMSUTBUFUT eeeeerer X01 
IFBSt-eek = 00000074 RASSREAD. . sii it 
- = 070 = 
IFBSL~HBK . RMSSWRITE = 90000188 
IFBSL _PRIM_DEV = S2000900 $$.£0 = 000185 
IFBSV-Ai 7 RMS$_FAC = 0001 4 
HBB Be = SaHHDDRE teee-as! = Songs 
IFBSV_GET = ° 00 RSs -UGr Ps 0901 6F4 
1FBSV~PUT . ? RMS$_US = 99000036 
IFBSV~RW_ATTR = Boopnose ROP 0000153 R 1 
1FBSW~F FE . SETBDB O00; AI 1 
IRBSL~CURBDB = BopsEh Ss SETNBP 9000070 R Ot 
IRBSL_JNLBDB - 00044 SETRSZ teeseth. x 1 
lst = Ha IR tate wana tf 
IRBSL NKTEDB ; i WRTBLR noes 
IRBSL~RP_VBN . 


RMSOBLKIO BLOCK 1/0 ROUTINES ym 14 ~138¢ 91:10 :10 48 AX/VMS nacre v04-00 
Symbol table -SEP-1984 16:24: 
WRTJNL 0800 0s 38 R 4 
wT1 00000210 R 1 
$ewewooeecccoccoe + 
! Psect synopsis ! 
PSECT name Allocation PSECT No. Attributes 


- ABS . 90000000 ¢ 0.) 69 ( 0.) NOPIC USR CON ABS LCL NOSHR NOEXE 
RMSRMS 4 Fd ( 844.) O01 ¢ 1.) PIC USR CON REL OGBL NOSHR- EXE 
SABSS 00000000 < 0.) 02 ¢ 2.) NOPIC USR CON ABS LCL NOSHR- EXE 


Phase Page faults CPU Time Elapsed Time 
Initialization 35 00:00:00.10 00:00:00.71 
sounene processing 139 Sa BE 00:00: 3°62 
370 00:00:13.42 00:00:33.83 

Synbol table sort 0 00:00:01.84 00:00: §-39 
s 2 157 00:00:03.11 00:00:09.97 

Co sbot table output 15 bs 00:00:00.14 
Psect synopsis output 1 00:00:00.0 00:00:00.29 
Cross-reference output 0 80:00 - 80 B88 320-89 
Assembler run totals 719 00:00:19. 00:00:51.58 


The working set Limit was 1650 pages. 

76994 bytes (151 pages) of virtual memory were used to buffer the intermediate c 

There were 70 pages of symbol table space allocated to hold 1380 non-local and 93° locat symbols. 
source Lines were read in Pass 1, producing 15 object records in Pass 2 

29 pages of virtual memory were used to define 28 macros. 


Seeece en een ee c eee en me oe een + 


Macro Library name 


_$255$DUA28: CRMS.OBJIRMS. “TY 1 17 
“$255$DUA 8: SYS.0B JJILIB.MLB;1 1 
“$255$DUA28: SySi SBISTARLET. MLB; 2 6 
TOTALS ‘all Libraries) 24 


1503 GETS were required to define 24 macros. 
There were no errors, warnings or information messages. 
MACRO/LIS=L1S$:RMSOBLKIO/0BJ=0BJ$:RMSOBLKIO MSRC$:RMSOBLKIO/UPDATE=(ENH$: RMSOBLKIO) +EXECML$/LIB+L1B$:RMS/LIB 


RMS. SRCIJRMSOB BLKIO.MAR; 1 


RD 


Page 


NORD NOWRT NOVEC BYTE 
RD NOWRT NOVEC BYTE 
WRT NOVEC BYTE 


id) 
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